1 REM ************************
2 REM *                      *
3 REM * ONLY FIRST MAGSYS !! *
4 REM *     VERSION 1.0      *
5 REM *                      *
6 REM ************************
10 IFA=0THENA=1:LOAD"SPRITES*",8,1
11 IFA=1THENA=2:LOAD"CHARSET*",8,1
12 POKE53272,24:DIM T$(20,14)
100 POKE53280,0:POKE53281,15:PRINT"[147][144]"
101 GOSUB50000:POKE2042,224:POKE2043,225:POKE53252,35:POKE53253,55
102 POKE53254,35:POKE53255,55:POKE53289,12:POKE53276,15:POKE53264,3
103 POKE53290,12
104 PRINT"[194][146][160][198][146][160][194][146][160][199][146][160]$[146][160][195][146][160][193][146][160][197][146] $[146] ![146] ([146]"
105 PRINT"[164][146][160][166][146][160][162][146][160][167][146][160]%[146][160][163][146][160][161][146][160][165][146] %[146] [166][146] #[146][152]"
106 PRINT" [171][172][172][172][172][172][172][172][172][172][172][172][172][172][172][172][172][172][172][172][172][172][172][172][172][172][172][172][173] ISSUE #1[151]":Z=1
107 PRINT"[197][196][201][212][207][210][201][193][204]          [186] [186] [186] [186] [186] [186] [186] [186] [186]"
108 PRINT"[206][197][215][211] & [193][203][212][213][197][204][204][197][211]   [186]               [186]"
109 PRINT"[218][213] [196][197][206][160][208][210][207][199][199][201]'[211]    [186]               [186]"
110 PRINT"[208][213][194][204][201][195] [196][207][205][193][201][206]      [186]               [186]"
111 PRINT"[193][206][218][197][201][199][197][206][212][197][201][204]       [186]               [186]"
112 PRINT"[198][169][210] [195][207][196][197][210]          [186]               [186]"
113 PRINT"[200][193][210][196]- [213][206][196] [211][207][198][212][215][193][210][197] [186]               [186]"
114 PRINT"[193][204][204][197][211] [193][206][196][197][210][197]       [186]               [186]"
115 PRINT"[204][193][211][212] [193][206][196] [204][197][193][211][212] !   [186] [186] [186] [186] [186] [186] [186] [186] [186]"
116 GOSUB48000:PRINT"[208][213][194][204][201][195][193][212][201][207][206]"
117 PRINT"[163][163][163][163][163][163][163][163][163][163][163]"
118 PRINT"[144]THE [183][184][185] MAG"
119 PRINT"[152]DONE BY"
120 PRINT"Z.G. & R.H."
124 IFS=1THENS=0:POKE53269,9:FORG=1TO99:NEXTG
125 S=1:POKE53269,6:FORG=1TO99:NEXTG
126 POKE211,1:POKE214,Z*2+5:SYS58640:PRINT"[166]";
127 GETA$:IFA$=""THEN124
128 PRINT"[157][157]  ":IFA$="[145]"THENIFZ>1THENZ=Z-1
129 IFA$=""THENIFZ<9THENZ=Z+1
130 IFA$=CHR$(13)THEN132
131 GOTO126
132 ON Z GOTO 200,300,400,500,600,700,800,900,1000
200 M$(1)="HY UND HALLO"
201 M$(2)="IMPRESSUM"
202 M$(3)="VIELEN DANK"
203 M$(5)="HAUPTMEN]"
204 M$(4)="HELP !"
248 AN=5:GOSUB49000
249 ON A GOTO 250,251,252,253,116
250 Z$="MAG.001":GOTO10000
251 Z$="MAG.006":GOTO10000
252 Z$="MAG.015":GOTO10000
253 Z$="MAG.027":GOTO10000
300 M$(1)="DOOM AUF [183][184][185]"
301 M$(2)="GOLDEN DISK "
303 M$(4)="HAUPTMEN]"
304 M$(3)="EINKAUFSTRIP"
348 AN=4:GOSUB49000
349 ON A GOTO 350,351,352,116
350 Z$="MAG.011":GOTO10000
351 Z$="MAG.018":GOTO10000
352 Z$="MAG.012":GOTO10000
400 M$(1)="SPRITE MACH."
401 M$(2)="SUAWRITER   "
402 M$(3)="STARFIGHTER "
403 M$(4)="HAWAII      "
404 M$(5)="TOPSY TURVEY"
405 M$(6)="COMM.TOWN   "
406 M$(7)="HAUPTMEN]"
407 AN=7:GOSUB49000
408 ON A GOTO 409,410,411,412,413,414,116
409 Z$="MAG.002":GOTO10000
410 Z$="MAG.008":GOTO10000
411 Z$="MAG.016":GOTO10000
412 Z$="MAG.023":GOTO10000
413 Z$="MAG.026":GOTO10000
414 Z$="MAG.028":GOTO10000
500 M$(1)="FILE MASTER "
501 M$(2)="PIZZA SERVICE"
502 M$(3)="PENGUIN TOWER"
503 M$(4)="CIVILISATE   "
504 M$(5)="X - DOME     "
505 M$(6)="ROCKFORD FD  "
506 M$(7)="HAUPTMEN]"
507 AN=7:GOSUB49000
508 ON A GOTO 511,509,510,512,513,514,116
509 Z$="MAG.003":GOTO10000
510 Z$="MAG.004":GOTO10000
511 Z$="MAG.005":GOTO10000
512 Z$="MAG.007":GOTO10000
513 Z$="MAG.009":GOTO10000
514 Z$="MAG.010":GOTO10000
600 Z$="MAG.013":GOTO10000
700 Z$="MAG.019":GOTO10000
800 M$(1)="HARTE WARE  "
801 M$(2)="F]R SOFTIES "
802 M$(3)="HAUPTMEN]   "
803 AN=3:GOSUB49000
804 ON A GOTO 850,851,116
850 Z$="MAG.017":GOTO10000
851 Z$="MAG.029":GOTO10000
900 M$(1)="PUNKT[220]..... "
901 M$(2)="SPIELETIPS  "
902 M$(3)="KOMMERZIELL "
903 M$(7)="HAUPTMEN]"
904 M$(4)="DANCEFLOOR"
905 M$(6)="HARD'N'HEAVY"
906 M$(5)="EMULATOR    "
948 AN=7:GOSUB49000
949 ON A GOTO 950,951,952,953,954,955,116
950 Z$="MAG.020":GOTO10000
951 Z$="MAG.022":GOTO10000
952 Z$="MAG.024":GOTO10000
953 Z$="MAG.030":GOTO10000
954 Z$="MAG.025":GOTO10000
955 Z$="MAG.014":GOTO10000
1000 Z$="MAG.021":GOTO10000
10000 IFIS$=Z$THENQ=1:S=I1:Q=I2:GOTO20000
10001 OPEN2,8,2,"O:"+Z$+"*,S,R"
10002 INPUT#2,S
10003 INPUT#2,A1$
10004 INPUT#2,A2$
10005 FORG1=1TOS
10006 FORG2=1TO14
10007 INPUT#2,T$(G2,G1)
10008 NEXTG2:NEXTG1:CLOSE2:Q=1:IS$=Z$:I1=S
11000 PRINT"":FORG=1TO3:PRINT"                                        ";:NEXTG
11001 PRINT"RUBRIK :[144] ";A1$
11002 PRINT"[145]THEMA  : [144]";A2$
20000 REM *** TXT.ANZ. ***
20001 PRINT""
20002 FORG=1TO16
20003 PRINT"                                        ";
20004 NEXTG
20005 PRINT" [144][186][186][186][186][186][186][186][186][186][186][186][186][186][186][186][186][186][186][186][186][186][186][186][186][186][186][186][186][186][186][186][186][186][186][186][186][186][186]"
20006 PRINT" [186]                                    [186]"
20007 PRINT" [186][186][186][186][186][186][186][186][186][186][186][186][186][186][186][186][186][186][186][186][186][186][186][186][186][186][186][186][186][186][186][186][186][186][186][186][186][186][145][145][152]SEITE"Q"[152]VON"S
20008 FORG=1TO14
20009 POKE211,1:POKE214,G+5:SYS58640:PRINT"[151]"T$(G,Q):NEXTG
20010 GOSUB47000
20011 IFA$=""ORA$="[145]"THENIFQ<STHENQ=Q+1:GOTO20001
20012 IFA$="[157]"ORA$=""THENIFQ>1THENQ=Q-1:GOTO20001
20013 IFA$=CHR$(13)THENI2=Q:GOTO100
20014 IFA$="[133]"THENG=Q:GOTO20019
20015 IFA$="[134]"THEN
20016 IFA$="[135]"THEN
20017 IFA$="[136]"THEN
20018 GOTO20010
20019 POKE214,22:POKE211,28:SYS58640:PRINT"NACH ?[144]   [157][157][157]";G
20020 GOSUB47000:IFA$=CHR$(13)THENQ=G:GOTO20001
20021 IFA$="[145]"ORA$=""THENIFG<STHENG=G+1
20022 IFA$=""ORA$="[157]"THENIFG>1THENG=G-1
20023 GOTO20019
47000 REM *** TASTE ***
47001 GETA$:IFA$=""THEN47001
47002 RETURN
48000 PRINT"":FORG=1TO9
48001 PRINT"               ":NEXTG
48999 RETURN
49000 GOSUB48000
49001 FORG=1TOAN:POKE646,11:POKE214,G+14:POKE211,24:SYS58640:PRINTM$(G):NEXTG
49002 A=1:G=0
49003 G=G+1:IFG=15THENG=0
49004 POKE646,G:POKE214,A+14:POKE211,24:SYS58640:PRINTM$(A)
49005 GETA$:IFA$=""THEN49003
49006 POKE646,11:POKE214,A+14:POKE211,24:SYS58640:PRINTM$(A)
49007 IFA$="[145]"THENIFA>1THENA=A-1
49008 IFA$=""THENIFA<ANTHENA=A+1
49009 IFA$=CHR$(13)THEN49011
49010 GOTO49003
49011 POKE646,11:POKE214,A+14:POKE211,24:SYS58640:PRINTM$(A):RETURN
50000 REM *** SPRITE ***
50001 POKE2040,224:POKE2041,225:POKE53248,50:POKE53249,55:POKE53250,50
50002 POKE53251,55:POKE53287,12:POKE53288,12:POKE53276,3:POKE53285,1
50003 POKE53286,11:POKE53264,3:RETURN